home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 December / 1985-12.d64 / auto time_date (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  47 lines
  1. 100 ck=56328:sa=49155:rem sa is ml starting address
  2. 110 fori=satosa+151:reada:x=x+a:pokei,a:nexti
  3. 120 ifx<>16817thenprint"error in data statements.":stop
  4. 130 print"[147]":a=sa+137:pokesa+13,a-int(a/256)*256:pokesa+14,int(a/256)
  5. 140 pokesa+145,a-int(a/256)*256:pokesa+146,int(a/256)
  6. 150 pokesa+36,sa-int(sa/256)*256:pokesa+37,int(sa/256)
  7. 160 print"today's date (mm/dd/yy, ie. 07/01/85)":input da$
  8. 170 iflen(da$)<>8thenprint"error in date entry. try again!":goto160
  9. 180 print"present time (hhmm format, ie. 0935)":inputtm$
  10. 190 iflen(tm$)=4andval(tm$)<=1259then210
  11. 200 print"error in time entry. try again!":goto180
  12. 210 print:input"am or pm (a[146]/p[146])";a$:if a$<>"a" and a$<>"p" then 210
  13. 220 tm$=tm$+"00":b=0:if a$="p" then b=128
  14. 230 print"[147]today's date: ";da$:print
  15. 240 print"present time: ";left$(tm$,2);":";mid$(tm$,3,2);" ";a$;"m"
  16. 250 print:print:input"are these correct (y/n)  y[157][157][157]";a$
  17. 260 ifa$="n"thenprint"[147]":goto160
  18. 270 fort=1to8:pokesa+t,asc(mid$(da$,t,1)):nextt:ifleft$(tm$,2)="12"thenb=128-b
  19. 280 fora=1to5step2:d=val(mid$(tm$,a,1)):d=d*16+val(mid$(tm$,a+1,1))
  20. 290 ifa=1thend=dorb
  21. 300 pokeck+3-(a-1)/2,d:nexta:pokeck,0
  22. 310 pokesa+142,peek(818):pokesa+143,peek(819)
  23. 320 rem get isave vector addr and save to exit in ml
  24. 330 a=sa+15:poke818,a-int(a/256)*256:poke819,int(a/256)
  25. 340 rem point isave vector to start of ml
  26. 350 pokesa+150,peek(774):pokesa+151,peek(775)
  27. 360 rem get iqplop (list) vector addr and save to exit in ml
  28. 370 a=sa+11:poke774,a-int(a/256)*256:poke775,int(a/256)
  29. 380 rem point iqplop (list) vector to start of ml
  30. 390 new
  31. 400 data 32,48,48,47,48,48,47,48,48,32,0
  32. 410 data 8,238,197,3,72,138,72,152,72,162,0
  33. 420 data 160,4,177,43,201,143,208,102,200
  34. 430 data 177,43,240,97,189,60,3,240,5,145
  35. 440 data 43,232,208,241,162,2,177,43,240
  36. 450 data 78,189,9,220,41,127,74,74,74,74
  37. 460 data 9,48,145,43,200,177,43,240,60
  38. 470 data 189,9,220,41,15,9,48,145,43,202
  39. 480 data 240,12,200,177,43,240,43,169,58
  40. 490 data 145,43,200,208,210,200,169,32
  41. 500 data 145,43,200,173,11,220,48,5,169
  42. 510 data 65,208,3,234,169,80,145,43,200
  43. 520 data 169,77,145,43,200,177,43,240,6
  44. 530 data 169,32,145,43,208,245,173,8,220
  45. 540 data 104,168,104,170,169,0,208,4,104
  46. 550 data 76,0,0,206,197,3,104,40,76,0,0
  47.